home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset pdflev3 6.0 1
- %%Copyright: Copyright 1987-2001,2003 Adobe Systems Incorporated. All Rights Reserved.
- %%Title: PDF operators, with code specific for Level 3
- /docinitialize {
- PDF begin
- /_defaulthalftone currenthalftone dd
- /_defaultblackgeneration currentblackgeneration dd
- /_defaultundercolorremoval currentundercolorremoval dd
- /_defaultcolortransfer [currentcolortransfer] dd
- /_defaulttransfer currenttransfer dd
- end
- PDFVars /docSetupDone true put
- } bd
- /_processColors
- currentpagedevice /ProcessColorModel getifknown
- { << /DeviceGray [/Gray]
- /DeviceRGB [/Red /Green /Blue]
- /DeviceCMYK [/Cyan /Magenta /Yellow /Black]
- /DeviceCMY [/Cyan /Magenta /Yellow]
- /DeviceRGBK [/Red /Green /Blue /Black]
- >> exch getifknown {} {[]} ifelse }
- {[]}
- ifelse
- def
- /initialize {
- PDFVars /docSetupDone get
- {
- _defaulthalftone sethalftone
- /_defaultblackgeneration load setblackgeneration
- /_defaultundercolorremoval load setundercolorremoval
- _defaultcolortransfer aload pop setcolortransfer
- }if
- false setoverprint
- } bd
- /terminate { } bd
- /c /curveto ld
- /cs /setcolorspace ld
- /l /lineto ld
- /m /moveto ld
- /q /gsave ld
- /Q /grestore ld
- /sc /setcolor ld
- /setSA/setstrokeadjust ld
- /re {
- 4 2 roll m
- 1 index 0 rlineto
- 0 exch rlineto
- neg 0 rlineto
- h
- } bd
- /rssds
- {
- /Shading get /DataSource get resetfile
- } bd
- /sh
- { dup /DataSource known
- { dup begin
- DataSource type /filetype eq { DataSource resetfile } if
- end
- } if
- shfill
- } [/DataSource] bld
- /concattransferfuncs {
- [ 3 1 roll /exec load exch /exec load ] cvx
- } bd
- /concatandsettransfer {
- /_defaulttransfer load concattransferfuncs settransfer
- } bd
- /concatandsetcolortransfer {
- _defaultcolortransfer aload pop
- 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
- 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
- 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
- concattransferfuncs
- setcolortransfer
- } bd
- /defineRes/defineresource ld
- /undefineRes/undefineresource ld
- /findRes/findresource ld
- currentglobal
- true systemdict /setglobal get exec
- [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
- { /Generic /Category findresource dup length dict copy /Category defineresource pop }
- forall
- systemdict /setglobal get exec
- /ri {
- /findcolorrendering isdefined?
- {
- mark exch
- findcolorrendering
- counttomark 2 eq
- { type /booleantype eq
- { dup type /nametype eq
- { dup /ColorRendering resourcestatus
- { pop pop
- dup /DefaultColorRendering ne
- {
- /ColorRendering findresource
- setcolorrendering
- } if
- } if
- } if
- } if
- } if
- cleartomark
- }
- { pop
- } ifelse
- } bd
- /CMYKDeviceNColorspaces [
- [/Separation /None /DeviceCMYK {0 0 0}] bind
- [/Separation (Black)
- /DeviceCMYK {0 0 0 4 -1 roll}] bind
- [/Separation (Yellow)
- /DeviceCMYK {0 0 3 -1 roll 0}] bind
- [/DeviceN [(Yellow) (Black)]
- /DeviceCMYK {0 0 4 2 roll}] bind
- [/Separation (Magenta)
- /DeviceCMYK {0 exch 0 0}] bind
- [/DeviceN [(Magenta) (Black)]
- /DeviceCMYK {0 3 1 roll 0 exch}] bind
- [/DeviceN [(Magenta) (Yellow)]
- /DeviceCMYK {0 3 1 roll 0}] bind
- [/DeviceN [(Magenta) (Yellow) (Black)]
- /DeviceCMYK {0 4 1 roll}] bind
- [/Separation (Cyan)
- /DeviceCMYK {0 0 0}] bind
- [/DeviceN [(Cyan) (Black)]
- /DeviceCMYK {0 0 3 -1 roll}] bind
- [/DeviceN [(Cyan) (Yellow)]
- /DeviceCMYK {0 exch 0}] bind
- [/DeviceN [(Cyan) (Yellow) (Black)]
- /DeviceCMYK {0 3 1 roll}] bind
- [/DeviceN [(Cyan) (Magenta)]
- /DeviceCMYK {0 0}] bind
- [/DeviceN [(Cyan) (Magenta) (Black)]
- /DeviceCMYK {0 exch}] bind
- [/DeviceN [(Cyan) (Magenta) (Yellow)]
- /DeviceCMYK {0}] bind
- [/DeviceCMYK] bind
- ] def
- /nzopmsc {
- 6 dict begin
- /kk exch def
- /yy exch def
- /mm exch def
- /cc exch def
- /sum 0 def
- cc 0 ne {/sum sum 2#1000 or def cc} if
- mm 0 ne {/sum sum 2#0100 or def mm} if
- yy 0 ne {/sum sum 2#0010 or def yy} if
- kk 0 ne {/sum sum 2#0001 or def kk} if
- CMYKDeviceNColorspaces sum get setcolorspace
- sum 0 eq {0} if
- end
- setcolor
- } [/cc /mm /yy /kk /sum] bld
- /every? {
- true
- 3 2 roll
- { 2 index exec not {pop false exit} if } forall
- exch pop
- } bd
- /knownColorants? {
- 3 dict begin
- /colorants exch def
- {
- /DeviceN /ColorSpaceFamily findresource pop
- /cpd currentpagedevice def
- /dc 10 dict def
- cpd /SeparationColorNames getifknown
- { { dc exch 0 put } forall } if
- _processColors { dc exch 0 put } forall
- colorants {dc exch known} every?
- } stopped
- { false }
- if
- end
- } [/colorants /dc /cpd] bld
- /getrampcolor {
- cvi
- /indx exch def
- 0 1 NumComp 1 sub {
- dup
- Samples exch get
- dup type /stringtype eq { indx get } if
- exch
- Scaling exch get aload pop
- 3 1 roll
- mul add
- } for
- setcolor
- } bd
- %%EndResource
-